.DO LIstDefs 

.LSTON 

-Paqe 

.Firi 



>>>>>>>>>>>>>>>>>>>>>>>> 



Control ler Status Port 



>>>>>>>>>>>>>>>>>>>>>>>> 



Status-Port 

CrcErrL 

WrtNvldL 

ServoRdy 

ServoErr 

S'mask 
NorfflJState 
NorinFffitjState 
rioHdrJState 
StartJState 



Equ $1F00 



.Equ 
• Equ 
.Equ 
.Equ 
.Equ 
.Equ 
.Equ 
.Equ 
.Equ 



$30 

$40 

$20 

$10 

$0F 
$02 
$0A 
$00 
$00 



; status bit 7: Crc Error { active Jo ) 
; status bit 6: Write Hot Ualid { active lo ) 
; status bit 5: Servo Ready { active hi > 
; status bit 4: Servo Error { active hi } 
;inask for status bits 0:3: state 

; norma I end state for Read,Mri te.ReadHdr 

; norma I end state for Format 

;last state if no matching header found 

; beg inning state machine state 



.Page 



> Cons tan t De f i n i t i ons : II i see 1 1 aneous 

> 



Stack_Top 
lnit_Pc 

lntL_Dflt 
MapJ3flt 

RegLpT i mes 
RegCount 
RegUsed 
I JOregUsed 
HiRegfidr 



tSize 
HiRamfidr 
RamLpT i mes 

EpromS i ze 
MaxEpromflddress 
EpromS tar tfldr 

MaxJCmnd_Types 
CmndType 
Cmnd_Len 
Servo_Len 



H i MaxLog i ca i 

ilidilaxLoglcal 

LoilaxLogicai 

HihaxCyl 

LoMaxCyl 

MaxSeek 

f1id.Xyl 

InitJiiCyl 



Equ 
Equ 

Equ 
Equ 

Equ 
Equ 
Equ 
Equ 
Equ 

Equ 
Equ 
Equ 

Equ 
Equ 
Equ 

Equ 
Equ 
Equ 
Equ 

00 

Equ 

Equ 

Equ 

Equ 

Equ 

Equ 

Equ 

Equ 



$80 
$0c 

«02 
«$0C 

2 

128 

5 

4 

RegCount- 1 

2048 

RamS i ze- 1 
2 

4096 

EpromS ize - 1 

$0001 

$02 
$F0 
$07 
$05 



; Register $7F + 1 

; Initial Pc setting after RESET 

; assume dr I ve i nter I eaved 1 : 1 
;l1ap 5:1 onto 2: 1 as default 

;Loop ttjufce ( O's and I's > 

; Total number of regs zS 

;this test uses r4/r5^r6^r7^r8 

; Ports 0,1^,2,3 can't be tested here 



; Physical length of 6116 ( 2kx8 > 
; loop twice < O's and I's > 



; currently only three types of cmnds 
;ma^ for TVPE of command 



M_10f1B 

$00 

$4B 

$FF 

$02 

$20 

$185 

$101 

$01 



;highest user block = $04BFF 

jhighest cylinder = $220 < 544 > 

; seeks longer than this are broken into 2 

jmtddle of data area 

j initial setting for data cylinder 



lnft_LoCyf 


.Equ 


$F9 


TstJiCyl 


.Equ 


$02 


Tst_LoCyJ 


.Equ 


$05 


Tst_Hecid 


.Equ 


$UU 


Tst-JSctr 


.Equ 


$00 


HbrSctrs 


.Equ 


19 


NbrHds 


.Equ 


2 


NbrTracks 


.Equ 


514 


HISprO 


.Equ 


$00 


MidSprO 


.Equ 


$19 


LoSprO 


.Equ 


$55 


HiSprI 


.Equ 


$00 


nidSprI 


.Equ 


$32 


LoSprI 


.Equ 


$RR 


ParkCyl 


.Equ 
.FIN 


$0235 




.DO 


W_20MB 


HiMaxLogicdl 


.Equ 


$00 


ilidMcixLogicai 


.Equ 


$98 


LortaxLog 1 ca ! 


.Equ 


$4B 


HiMaxCyl 


.Equ 


$02 


LoMaxCyl 


.Equ 


$20 


llaxSeek 


.Equ 


$185 


Mid Hyl 


.Equ 


$101 


lnit_HiCyf 


.Equ 


$01 


init-LoCy! 


• Equ 


$F9 


Tst_HiCyl 


.Equ 


$02 


TstJLoCyl 


.Equ 


$05 


Tst-Head 


.Equ 


$00 


TstJSctr 


.Equ 


$00 


NbrSctrs 


-Equ 


38 


NbrHds 


.Equ 


2 


NbrTracks 


.Equ 


514 


HiSprO 


.Equ 


$00 


hidSprO 


.Equ 


$32 


LoSprO 


.Equ 


$fifl 


HiSprl 


-Equ 


$00 


NidSprl 


.Equ 


$65 


LoSprI 


.Equ 


$54 


ParkCyl 


.Equ 
.FIN 


$0235 




.00 


M_40MB 


HiNaxLoglcal 


.Equ 


$01 


NldnaxLogica! 


.Equ 


$30 


LoilaxLoQ i CO i 


.Equ 


$E3 


HmaxCyl 


.Equ 


$04 


LoMaxCyl 


.Equ 


$40 


MaxSeek 


.Equ 


$30fl 


MidJCql 


.Equ 


$202 


InitJiiCyl 


.Equ 


$03 


Init [oCyl 


Equ 


$F9 


Tst_HiCyl 


.Equ 


$04 


Tst-LoCyl 


.Equ 


$0R 


Tst_Head 


.Equ 


$00 


Tst Bctr 


.Equ 


$00 


NbrSctrs 


-Equ 


38 


NbrHds 


.Equ 


2 


NbrTracks 


.Equ 


1028 


HiSprO 


.Equ 


$00 


MidSprO 


. Equ 


$55 


LoSprO 


.Equ 


$54 


HiSprl 


.Equ 


$00 


MfdSprt 


-Equ 


$Cfl 



;Cyl^ Head, and sector of R/W test ar^Q 



; number of sectors = 19 
; number of heads = 2 
; number of tracks =514 
; logical block of Spr< > 



; logical block of SprC 1 > 



; cylinder to park heads at 



;hlghest user block = $09848 



highest cylinder = $220 < 544 ') 

seeks longer than this cbtq broken into 2 
middle of data car&a 
; initial setting for data cylinder 

;Cyl^ Head, imd sector of R/U test area 



; number of sectors = 38 
; number of heads = 2 
; number of tracks =514 
; logical block of Spr( ) 



; logical block of SprC 1 ) 



; cylinder to park heads at 



;highest user block = $130E3 



;highest cylinder = $440 < 1088 > 

; seeks longer than this anz broken into 2 

;middle of data i:^ea 

; initial setting for data cylinder 

;Cyl . Head^ arvi sector of R/W test area 



; number of sectors = 38 
; number of heads = 2 
; number of tracks = 1028 
; logical block of Spr< > 



; logical block of Spr< 1 > 



LoSpr 1 
ParkCyl 


.Equ 
.Equ 
.FiN 


$fi8 
$046fl 


Spr Thresh 


.Equ 


3 ;this 


Uri teJOp 
ReadJOP 


.Equ 
.Equ 


$00 
$80 


Uait 


-Equ 


$40 


Hi! 
Used 
Useab i e 
Spare 
BadBlock 


.Equ 
.Equ 
.Equ 
.Equ 
.Equ 


$80 
$40 
$20 
$10 
$00 


SprTb J -Type 
I D_Type 
User-Type 


.Equ 
.Equ 
.Equ 


$08 
$04 
$02 


Found 


.Equ 


$01 


Random 


.Equ 


$80 


TestBitllap 

SetBitMap 

Clear-^itMap 


.Equ 
.Equ 
.Equ 


$80 
$40 
$20 


BlockLength 


.Equ 


1 + 532 


RdError ^ 

RdSr-voErr 

RdSuccess 

RdNoHdrFnd 

RdCrcErr 


.Equ 
.Equ 
-Equ 
.Equ 
Equ 


$80 
$40 
$20 
$10 
$08 


RdHError 
RdHSruoErr 


.Equ 
-Equ 


$80 
$40 


WrError 
WrSrvoErr 
Wr Success 
UrHoHdrFnd 


-Equ 
.Equ 
.Equ 
.Equ 


$80 
$40 
$20 
$10 


FmtError 
FmtSrvoErr 
FmtSuccess 
Nax-lnterLeave 


-Equ 
.Equ 
.Equ 
-Equ 


$80 
$40 
$20 
$05 


Cmnd_Pend i ng 

IBsq 

fiultiUr 


.Equ 
.Equ 
.Equ 


$80 
$40 
$20 


Frst^prTbl 


Equ 


$80 



; cylinder to park heads at 



many CRC errors to be candidate for sparing 

; current operation is a write 
; current operation is a read 

;«iait for seek-end 

;Nil Ptr 

; Spare Block in table is used 
; Spare Block in table is useable 
.element is a true spare 
;eiement is a bad block 

;type of element is spare table 

;type of element is ID block 

;type of element is User data block 

;Block »J!>as found in spare table 

; search cache by index 

; check bit map location for or 1 
;set a bit map location 
;clear a bit map location 

+ 2 + 6 ; Length = Dummy + Data + CRC + ECC 



; Wa i tJCmnd was ca I i ed from a command 

.:set BSY 

; curren t opera t i on is Mu 1 1 i B I ockMr i te 

;First spare table has been found 



;> Data Exception Error Codes 

Error . Equ $80 

ExJUndetermined .Equ $00 

ExJSprBlock .Equ $02 

Ex_BadBlock .Equ $04 

Ex_P,eadErr .Equ $06 

Ex_HdrBad .Equ $08 



; Undetermined error < recovery off? > 
; Spare this block? 
;make this block a bad block 
;non-catastophic error during read 
:make this block bad because no header 



Ex-Horspr 


.Equ 


$on 


ExJCaseJIax 


.Equ 


$Ofi 


;> Interface Responses 




Read-Response 


■ Equ 


$02 


WrJJesponse 


-Equ 


$03 


WrUer_Response 


.Equ 


$04 


En<1 Wr_Response 


-Equ 


$05 


D_R-. ID-Response 


.Equ 


$02 


Fld^tat-Resp 


.Equ 


$03 


FldJSStat-Resp 


.Equ 


$04 


Sd^jC-Respone 


.Equ 


$05 


S_SeekJResponse 


.Equ 


$06 


S_Rs tr -Response 


.Equ 


$07 


Set_Rcyr_Resp 


.Equ 


$08 


SJPark-Respone 


.Equ 


$Ofl 


D-Read-Response 


.Equ 


$0B 


D_F{dHdr_Resp 


.Equ 


$0C 


D-Wri te_Eesp 


.Equ 


$00 


St_11cip_Response 


.Equ 


$0E 


D_P,jSpr-Resp 


.Equ 


$0F 


WrJSprJResp 


.Equ 


$10 


Fffit-Response 


.Equ 


$11 


f _Spr_Response 


.Equ 


$12 


Rd_flbrt_Resp 


.Equ 


$13 


RstSrvo_Resp 


.Equ 


$14 


DJScan-Response 


.Equ 


$15 


Sys_Rd_Resp 


.Equ 


$22 


Sy£_Wr_Resp 


-Equ 


$23 


Sys_WrEx_Resp 


.Equ 


$fl3 


Sys_Wr-End_Resp 


.Equ 


$27 


Sys-WrUer_Besp 


.Equ 


$24 


FrofI le 


.Equ 


$00 


Uidget 


.Equ 


$01 


Pro_LogjOffset 


.Equ 


$01 


SysJLogjOffset 


.Equ 


$03 


f ncJSprCnt 


.Equ 


$00 


Inc-BcjdCnt 


.Equ 


$01 


Dec_BadCnt 


.Equ 


$02 



; spare this block because no header 
; max i nkLHi)! case values 



; Interface Response to a Read command 

; Interface Response to a Ur ite command 

; Interface Response to a Urite Uer ify command 

; Interface response after receiMlng wr data 



; Device Interface Type is Profile 
;0euice Interface Type is i4idget 

; offset from start of command to blocknumber 



;> System Status Definitions 



;> Byte 

Bad_55 

MrBufJOR 

Stat_Rd_£rr 

Stat_No_Hdr 

StatJSrvo 

Qp-Fa\ led 

;> Byte 1 

Spr-elk-Hard 

SprB Ik-Warn 

Stat_SlfTst 

StatJSpare 

StatJSeek 

Stat-flbort 



.Equ 
.Ec^i 
.Equ 
.Equ 
.Equ 
.Equ 



-Equ 
.Equ 
.Equ 
. Equ 
.Equ 
-Equ 



$80 
$40 
$08 
$04 
$02 
$01 



$40 
$20 
$08 
$04 
$02 
$01 



Status: Other than 55 response from host 

Status: Write Buffer OverFlow 

Status: Read Error 

Status: No Header Found 

Status: Unrecouerab { e Servo Error 

; Status: Operation Failed 



; Status: Mo room left in spare table 

; Status: 5 or less spare blocks available 

; Status: Abort caused by self test failure 

; Status: Sparing has occured 

; Status: Seek to airong track 

: Status: Control ler aborted 



;> Byte2 

Power-Reset .Equ $80 

I iiegai-Biock .Equ $40 

;> Byle3 

EccStat .Equ $80 

CrcSlat .Equ $40 

HdrJIi snatch .Equ $20 



; Midget was power reset 

; Status: Block number out of bounds 



;read error detected by ecc 
;read error detected by crc 
; timeout waiting for header 



;> Bank Switch Registers Defs 

BankReg Equ $1800 ; address of first bank bit 



Led 
LedJIask 

RamBankO 

RamO 

Rami 

Ram2 

Ram3 

RomBankO 

RomBank2 

EpromO 

Eprom 1 

Eprom2 

EpromS 

Eprom4 



Equ $1800 ; address of Led bit 

Equ $FE jmask for Led bit 

Equ $1900 ; address of first Ram_Bank bit 

Equ $0 ; offset of ram bank zero 

Equ $ 1 

Equ $2 

Equ $3 

Equ $1E00 

E.qu $1000 

Equ $0 

Equ $1 

Equ $2 

Equ $3 

Equ $4 



.Page 
>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Servo Definitions 
> 



SJCmnd_Bi|te .Equ 

S_Diff_Byte .Equ 

SjOff_Byte .Equ 

S^tat-Byte .Equ 

; > BVTE 

Reads tatus .Equ 

Offset .Equ 

Diagnostic .Equ 

DataRecQi .Equ 

FrmtRecal .Equ 

Access . Equ 

flccessJOffset .Equ 

Hoirie . Equ 

HdJB I r_Rev . Equ 

Hd_Dir_Frwd .Equ 

;> Bits 0: 1 Equ 

;> BVTE 1 .Equ 

;> BVTE 2 .Equ 

OffJ[iir_ReM .Equ 



$00 ; Servo Command Byte 

$01 ; Servo Lo Difference Byte 

$02 ; Servo Offset Byte 

$03 ; Servo Status Byte 



Equ Command^ Direction, and Hi Difference Byte 



$00 
$10 
$20 
$40 
$70 
$80 
$90 
$C0 

$00 
$04 



; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 



Read Status 

Offset/ Track Following 

Diagnostic 

Recalibrate heads , Data 

Recalibrate hedas,. Format 

Recess only 

Seek with Offset 

Home the heads 



; Direct ion: Reverse 
;Direction: Forward 



Magnitude: Hi Difference 
Magnitude: Lo Difference 
Offset Byte 
$00 ; Offset Direction Reverse 



Off_Dir_Fr«KJ 
Off_fluto 
Ld_Off_Ual 
;> Off_Ua! 

;> BVTE 3 

S_Rate_19_2 
S_Rate_57J5 
PwrJOn_Reset 

SJStatjO 
SJStat_1 
SJStat_2 
S_StatJ3 
SJStat_4 

S-JStcitJ& 
S^tat_7 
SJStatJB 

S-Horm-Status 



Equ 
Equ 
Equ 
Equ 

Equ 

Equ 
Equ 
Equ 

Equ 
Equ 
Equ 
Equ 
Equ 
Equ 
Equ 
Equ 
Equ 

Equ 



$80 ; Offset Direction Forward 

$40 ;fluto-Offset On 

$20 ;Load Offset Malue from DflC on Servo 

$1F ; 5-bit value Loaded/Stored Into DflC 



Status Byte 

$00 
$80 
$40 



; Servo /Control ler baud rate = 19.2 
; Servo/Contro 1 1 er baud rate = 57.6 
; Servo Power-On Reset 



$01 
$02 
$03 
$04 
$05 
$06 
$07 
$08 

S_Stat_1 



; Servo Status 
; Servo Status 1 
; Servo Status 2 
; Servo Status 3 
; Servo Status 4 
; Servo Status 5 
; Servo Status 6 
; Servo Status 7 
; Servo Status 8 

;Horinal Servo Status 



>>>>>>>>>>>>>>>>>>>>>>>> 



Constant Definitions: Exception Stuff 



>>>>>>>>>>>>>>-^ >>>>>>>>> 



flpl_flck .Equ 
I n i t-Response . Equ 
Free_Proc . Equ 



$55 ;ficknowledge from Host 

$01 ; Control ler Ready for new command 

$69 ;Host willing to give up the bus 



flpl_Excpt .Equ $00 
ChkB-Jlismatch .Equ $00 
BadJCinnd .Equ $01 



Cmnd Fxcpt 


.Equ 


$01 


StrtJCmnd 


.Equ 


$00 


LBIk-Bounds 


.Equ 


$02 


S_Rst_fibort 


-Equ 


$03 


Serr-JlotReady 


Equ 


$00 


Coram JErr 


.Equ 


$01 


S_Store 


.Equ 


$00 


S_Load 


.Equ 


$01 


RdBlk-fibort 


-Equ 


$04 


RdHdrjRbort 


.Equ 


$05 


MrBlk-flbort 


.Equ 


$06 


FmtB Ik-Abort 


.Equ 


$07 


Bad_5tate 


.Equ 


$00 


FmtTrk-flbort 


-Equ 


$08 


FmtTrk_PosErr 


.Equ 


$00 


Spareflbort 


.Equ 


$09 


NoSpace 


.Equ 


$00 



Sr vo_R JRbor t . Equ 
OvrLp-flbort .Equ $0B 



; Apple- Inter face 

; Check Byte Mismatch 

; 1 1 legal Command 

; Command_Dr i ver 
; Start-Command 

; Logical Block out-of-bounds 

; Servo Reset Abort 
; abort because MOTC ServoRdy > OR ServoErr 
; abort because communication error 
jcomra error in Servo Store 
;coffim error in Servo Load 

; abort in ReadBlock 
; abort in ReadHeader 
; abort i n I4r i teB I ock 
; abort In FormatBlock 

; abort caused by illegal state machine state 
; abort in Forma tTrack 

; abort because unable to position heads 

; abort while trying to deal with spare table 
; abort was caused by request for space 

; abort while attempting Servo Recovery 

; abort whi le attempting overlapped seek 



Rd-jCii!in_flbort 
Servo JDead 


.Equ 
-Equ 


$0C 
$00 


Seek_flbort 


.Equ 


$00 


Wr_Cmn_flbort 


-Equ 


$0E 


BadJPassMord 


.Equ 


$0F 


Bad_Parcifns 


-Equ 


$10 


SprCnt_flbort 


.Equ 


$11 


Host_OvrF!ow 


.Equ 


$12 



; abort while executing system read 
; aborted because of servo failure 

; abort while executing a seek 

; abort wh 1 1 e execut I ng Hr i te JCommon 

; command string had wrond password 

; command had I i legal parameters 

; illegal spare count command 

;Host sent too much data! 



• Page 
>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Constant Definitions: External Eprom Stuff 
> 



Pro-Cronds 
D i ag jQmnds 
Sys-Cmnds 



Equ 02 
Equ 19 
Equ 02 



.Page 

- •J. 

; > Cons tan t De f i n i t i ons : Ex ter na I Ram S tu f f 



>>>>>>>>>>>>>>>>>>>>>>>> 



.ORG 



$1000 



ReadRrray : 

RSctrfinp: .Block 


0.10 


RHdrGap: .BIocK 


OJ 


RHeader: .Block 


0,6 


RDataGap: .Block 


0,7 


ROummy: .Block 


0,1 


RBufferl: .Block 


0,532 


RBuflCre: .Block 


0,2 


RBuflEcc: .Block 


0,5 


REndGap: .Block 


0..1 


RBuflPai: .Block 


0,4 


BlockID .Equ \ 


512 ;of 


Statusflrray .Equ 1 


=®uffer 


.ORG \ 


hooo 


ReadHdrflrray: 






RHSctrGap: 


Block 


0,10 


RHHdrGap: 


BlocK 


0,2 


RHHeader: 


Block 


0,6 


RHDataGap: 


Block 


0,5 


RHaimmy: 


Block 


OJ 


RHBufferl: 


Block 


0.532 


RHBuflCrc: 


Block 


0,2 


RHBuflEcc: 


Block 


0,6 


RHEndGap: 


Block 


OJ 


RHBuflPw: 


Block 


0,4 



512 ; offset of control ler useable space 



RdH_JStat_flrray 


.Equ 


RHHeader - 4 




.ORG 


$1000 


Mr i tefirray : 






MSctrGap: 


.Block 


0,10 


MHdrGap: 


.BIocK 


0,1 


^Header: 


.Block 


0,5 


WDataGap : 


.Block 


0,14 


WDataSync : 


.Block 


0,2 


MBufferl: 


.Block 


0,532 


UBuflOc: 


.Block 


0,2 


WBuflEcc: 


.Block 


0,6 


WEndGap: 


.Block 


0,2 


MBuflPw: 


.Block 


0,4 




.ORG 


$1000 + $20 


Forma tflr^ray : 






FSctrGnp : 


.Block 


0,10 


FHdrGap: 


.BIocK 


0,16 


FHdrSync: 


.Block 


0,2 


FHeader : 


.Block 


0,6 


FDataGap : 


.Block 


0,14 


FDatdSync : 


.Block 


0,2 


FBufferl: 


.Block 


0,532 


FBuflCrc: 


.Block 


0,2 


FBuflEcc: 


.Block 


0,6 


FEndGap: 


.Block 


0,2 



WBIkFence: 
Cmnd-Ptr 

Buf 2flrray : 

Buf Dummy: 

Buffer2' 

Buf2Crc: 

Buf2Ecc: 

Buf2P«»2: 



5 lock 0,4 ; fence to check for host write overruns 
Equ WBufferl-7 jhost passes command here! 



Block 0,1 

Block 0,532 

Block 0,2 

Block 0,6 

Block 0.4 



CStatusO: 

CSlatusI 

CStatus2; 

CStatus3: 

CStatus4: 

CStatusS: 

CStatus6: 

End_JCStatus 

Logical Block 

SruoCmndBuf : 

S_CmndJ_en 

SStatusO: 

Spareflrray : 

SparePwl: 

SpareTffiStmp: 

FmtOffset: 

FffitlntrL: 

SegPtrflrroy: 

SprCount : 



.Block 
.Block 
.Block 
.Block 
.Block 
.Block 
.Block 
.Equ 

Equ 

.Block 

.Equ 

.Block 



0,4 
0,4 
0,4 
0,4 
0,4 
0,4 
0,4 
-PC. 

CStatus3 

0,5 

5 

0.5 



.Block 
.Block 
.Block 
.Block 
.Block 
.Block 



; Con tr o 1 1 er S ta tus 



;Last Requested Block Humber 
;Last Host Command: wordO 
;Last Host Command: wordi 



; Servo Command Buffer 

; Length of ServoCmndBuffer 

; Servo Status 



0,4 
0,4 

0,1 
0.1 
0,128 
0,1 



BadCount : 


.Block 


0.1 






SpareBitMap: 


.Block 


OJO 






SpareTab 1 e : 


.Block 


0,304 






riap_Tcible: 


.Block 


O/fibrSctrs 






SpareCheck: 


-Block 


0,2 






SpareP»jii2 : 


.Block 


0,4 






SpareLength 


.Equ 


. PC . -Spareflrray 




SpareEnd: 


.Block 


0, B 1 ockLength-SporeLength 


Rbort_Stat: 


.Block 


0,16 ;last 


abort info 


CacheLength 


.Equ 


NbrSctrs+1 






CachStat: 


.Block 


0, CacheLength 




Cacheflrray : 


.Block 


0,4*CacheLength 




StackPtr: 


.Block 


0,2 






Hecip 


.Equ 


.PC. 






Starts lock 


.Equ 


Heap 






BIkOffset 


.Equ 


Starts lock+3 




B Ik Index 


.Equ 


BlkOffset+1 




PBIock 


.Equ 


Heap 






TLB lock 


.Equ 


PBIock+3 






Cur_THS 


.Equ 


TLBIock+3 






TopOfStcick 


.Equ 


ll/l-h ;top of externa! stack 




.Page 










>>>>>>>> 


>>>>>>> 






;> Interrupt Stuff 
• > 








;>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 






Diat_Po£Heads 


-Equ 


$00 






DmtjCOO 


.Equ 


$01 


; Command $00 


DffitJCOl 


Equ 


$02 


;Cofflffiarid $01 


DffltJC02 


Equ 


$03 


; Command $02 


Dfflt_ReadBlock 


.Equ 


$04 


;Rot.itlne 


ReadBlock 


DiBtJ?scidHdr 


.Equ 


$05 ; 


; Routine 


ReadHdr 


DiatJ4riteBlock 


.Equ 


$06 


; Routine 


WriteBlock 


Dffit_ForfflatB 1 ock 


.Equ 


$07 


; Routine 


Forma tB lock 


Dffit_FiBtTrQck 


.Equ 


$08 


; Routine 


FormatTrack 


Dmt_LctSctr 


-Equ 


$09 


; Routine 


LocateSector 


Dffit_Recal 


.Equ 


$Ofl 


; Routine 


Restore 


Dffit_MU 


.Equ 


$0B 


; Routine 


I4r i teUer i f y 


DiBt S_R 


-Equ 


$0C 


•Routine 


SerMoRecoyery 


DmtJOyerLap 


.Equ 


$00 


; Routine 


OverLappedSeek 


Di»t_fifl nommon 


.Equ 


$0E 


: Routine 


ReadJCommon 


DfRt^eek 


.Equ 


$0F 


Rout i ne 


Seek 


DffitJServoOk 


.Equ 


$10 


, Routine 


SeruoOk 


D!ntJ4r_Coi!Hnon 


.Equ 


$11 


, Routine 


Mr i te JCommon 


Dmt-TrkCnt 


-Equ 


$12 


; Routine 


TrackCount 


Dffit^JCffind 


.Equ 


$13 


.Routine 


SeryoCmnd 


Dmt^_^tat 


.Equ 


$14 


Routine 


Servos tatus 


Dffif SjStore 


-£«?« 


$15 


; Routine 


SerMoStore 


Diat^_Load 


.Equ 


$16 


Routine 


ServoLoad 



Dffit_Ual .Equ 500 ; DeadManT i mer count 

:> IRQ Definitions 



Timerl .Equ $20 ;Timer 1 interrupt 

TJmerO .Equ $10 ; Timer interrupt 

SerlalJOut .Equ $10 ;Slo transmitter ready 

Serial_ln .Equ $08 ;Sio receiver ready 

IrqJSector .Equ $04 ; Negative edge on sector mark 

!rq_ Index .Equ $01 ; Negative edge on index mark 



LSTOFF 



